(LƯU Ý: nếu các chương trình được chạy bằng phiên bản Cintsys hiện tại (tháng 12 năm 2018) của Martin Richards, LIBHDR, START và WRITEF phải được thay đổi sang chữ thường để tránh lỗi.)

In ra các giai thừa:

GET "LIBHDR"LET START() = VALOF $(	FOR I = 1 TO 5 DO		WRITEF("%N! = %I4*N", I, FACT(I))	RESULTIS 0$)AND FACT(N) = N = 0 -> 1, N * FACT(N - 1)

Giải pháp đếm cho bài toán tám quân hậu:

GET "LIBHDR"GLOBAL $(	COUNT: 200	ALL: 201$)LET TRY(LD, ROW, RD) BE	TEST ROW = ALL THEN		COUNT:= COUNT + 1	ELSE $(		LET POSS = ALL & ~(LD | ROW | RD)		UNTIL POSS = 0 DO $(			LET P = POSS & -POSS			POSS:= POSS - P			TRY(LD + P << 1, ROW + P, RD + P >> 1)		$)	$)LET START() = VALOF $(	ALL:= 1	FOR I = 1 TO 12 DO $(		COUNT:= 0		TRY(0, 0, 0)		WRITEF("%I2-QUEENS PROBLEM HAS %I5 SOLUTIONS*N", I, COUNT)		ALL:= 2 * ALL + 1	$)	RESULTIS 0$)